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MODULE SSMGDEF; * Definitions for RTL Screen Management 
SMCDER SDL Edits STANTOT? ° 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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* 
THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED + 
LY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON, NO TITLE TO AND OUNERSHIP OF THE SOFTWARE TS” HERESY 
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TRANSFERRED. 


THE SAD Eat IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTIC . 
ooeoketiie. BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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SSSA AA AAAAAEAAAAAAAAEAAAAAAAAAEEAARAAEAAAAAAEAEARAARAAAAAAEATAAEAAAAEAAATAREERE 
Edit history: 


1-99) - Original. SBL 6-April-1983 
ms = Combine with output version. PLL 14-Jun-1983 
- Remove extra * comma on ist of List to make it compile. 
RKR 14-JUN-19 
Add screen TEPLAY OPS tyeuest AS rt to ,ABEL_ BORDER and 
SMGSC_END_DISPLAY_UPDATE. 
Add external symbols for senate types. PLL 21-Jun-1983 
Add E constants. PLL ewe? 
Add fields te pasteboard info block. STAN 17Au -1983. 
Add DCB trucation icon attribute. PLL 1- -Sep 
Add clear screen on exit attribute. STAN 19-Sep-1983. 
Add background color wheel. 
Add DCB display cenerela. attribute. PLL 26-Sep-1983 
Allow unknown color 


par Sarees 
mo 
i 


$56 


Take out FILL iron aggregate doc lores ton for the key 

definit Ha attributes section so that the file generated 

for C will be correct. LEB 23-Feb- Moen 

Add SMGSV -NOTABS bit for user. STAN 1-Mar-1984. 

Add Lisertt to 7, ojert to civete terminal types (needed by 

Add SMGSV_ KEY TSETSTATE, ha SAGs get KEY pets and SMGSLIST_KEY_DEF 
of Steve's edit 7 S~Auge' 83 that we lost. 

heed positive Longue? 8 equ utyatent of negative byte for private 

terminal type. 

or - Add Label positions. STAN 35-Jun-1984, 


i: Input terminator codes 
/* Control characters 


N 
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SMGDEF .SDL;1 
CONSTANT (¢ 

CTRLA, /* SOH 
CTRLB, /* STX 
CTRLC, /* Ab 
CTRLD, /* EOT 
CTRLE, /* ENQ 
CTRLF, /* ACK 
CTRLG, /* BEL 
CTRLH, /* BS 
CTRLI, /* HT 
CTRLJ, /* LF 
CTRLK, /* VT 
CTRLL, /* FF 
CTRLM, /* CR 
CTRLN, /* SO 
CTRLO, /* SI 
CTRLP, /* otf 
CTRLQ, /* DOC 
CTRLR, /* ote 
CTRLS, /* DC 
CTRLT, /* DC4 
CTRLU, /* NAK 
CTRLV, /* SYN 
CTRLW, /* ETB 
CTRLX, /* CAN 
CTRLY, /* EM 
CTRLZ /* SUB 
) EQUALS 1 INCREMENT 1 PREFIX SMGS$ TAG K_TRM; 


/* Synonyms for control characters 


P 
CONSTANT LF EQUALS ACen -TRA-CTALS PR 
CONSTANT CR EQUALS SMGSK_TRM_CTRLM P 


/* Keypad keys 
same ( 


—K—TO*MOOWZSl KOH TOVWIVOOZ Sl KAO KH ILO WMOOCOZ SS Ae K TOWN IVCOOZ Sr Kerr TA*MIOCOW 
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COMMA 
PERIOD, 
/* Cursor positioning keys 


ta 


/* Function keys 


fo To Te Je Te) 
Ww 


We es es 
© 
~™ 
ss 
=a 
— 


Nm 2 OM 2 SS SS  OHONC 


VRANVMO Tae 8 eet 
OOOnr FW Oe + + s 


EQUALS 256 INCREMENT 1 PREFIX SMG$ TAG K_TRM; 
/* Editing keys 
CONSTANT ( 

FIND 

INSERT_HERE, /# 

REMOVE, 

SELECT 

PREV_SCREEN, /* 

NEXT practy /* E6 

) EQDALS 311 INCREMENT 1 PREFIX SMG$ TAG K_TRM; 
/* Synonyms for editing keys 


~ 

os 
mmmmmmmn 
WMewn— 


CONSTANT ( 
E1, /* FIND 
Eg. /* INSERT_HERE 
E3, /* REMOVE 
Ed: /* SELECT 
ES; /* PREV_SCREEN 
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SMGDEF .SDL;1 

E6 rere 
) EQUALS 311 INCREMPAT "5 PREFIX SMG$ TAG K_TRM; 

/* Conditions 

CONSTAN 
CANCELLED, . 4 cancelled by SMGSCANCEL_INPUT 

imeout period expired 

BUFFER FULL, ie Butter is (te U 


UNK /* ynengun or 
) EQUALS 508 INCREMENT PREFIX ones TAG K_TRM; 


/* 
An Key definition attributes 


eee oe KEY DEF _ATTR STRUCTURE ree SMG$ MARKER SMG$ ; 


1 
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-NOECHO BITFIELD MA Don't echo strings 
KEY TERMINATE BITFIELD MASK;  7* This. key terminates read 
KEY LOCK BITFIELD MASK; /* Lock new state 
key ROTECTED BITFIELD MASK; /* Definition hy protected 
ETSTATE BITFIELD MASK; /* Definition sets a state (output only) 
dna deere rete LENGTH 2? FILL; 


Numbers for the following constants begin with the next number after the 


{ 
CSCRSC_UP_SCROLL constant. 


att /* SCREEN MANAGEMENT REQUEST TYPES 
cons 
CHANGE RENDITION /* SMGSCHANGE_RENDITION 
. DELETE-CHARS /* SMGSDELETE” CHARS 
- ERASE_BISPLAY /* SMGSERASE_BISPLAY 
. ERASE-LIN /* SMGSERASE-L 
° CuRS /* SMGSHOME CU 
+ INSERT_CHARS /* SMGSINSERT_CHARS 
~ INSERT-LINE /* SMGSINSERT LINE 
" PUT CHAR /* SMGSPUT_CHA 
- PUT_LINE /* SMGS$ , LINE 
» PUT- DISPLAY ENCODED /* SMG$PUT-VIRTUAL_DISPLAY_ENCODED 
» RETORN_CURSOR /* SmCSRETORN CURSOR POS 
: PUT WITH SCRO ROCL /* SMGSPUT_WITH SCROCL 
e _ABS /* SMGSSET~CURSOR_A 
. SET CURSOR-REL /* SMGSSET~CURSOR-REL 
. DELETE_LINE /* SMGSDELETE_LINE 
» ERASE CHARS /* SMGSERASE CH 
+ SCROLC_DISPLAY_AREA /* SMGSSCROLC_DISPLAY_AREA 
, CHANGE-VIRTUAL_DISPLAY /* SMGSCHANGE- VIRTUAL. “DISPLAY 
, LABEL a /* SMGSLABEL BORDER 
END_DISPLAY_UPDATE /* SMGSEND OTSPLAY UPDATE 
j equals 10 ifcrement 1 prefix SMG tag $C; 
/* Character Set Codes 
constant 


ONI TED KINGDOM 


16-SEP-1984 16:46:59.8 Page § 


SMGDEF .SOL;1 


» ASCII 
. SP i GRAPHICS /* precres Graphics 
/* Alternate = Standard Char. 
ALT"GRAPHICS /* Alternate - Special Graphics 
equals 0 increment 1 prefix SMG tag SC; 
/* 
/* The following constants define corner cursor positions used in 
a SMGSHOME _CURSOR. 
. 4 
constant ( 
UPPER_LEFT 
- LOWER_LEFT 
- UPPER_RIGHT 
LOWER shout 
j equals 0 increment 1 prefix SMG tag $C; 
/t 
/* The following constants define label positions used in 
S SMGSLABEL BORDER. 
. 7 
constant ( 
oP 
~ BOTTOM 
- LEFT 
RIGHT 
j equals 0 increment 1 prefix SMG; 
/* 
“ DEFINE BIT MASKS AND VALUES FOR SCREEN ATTRIBUTES 
ooerenets 8 tii # union prefix SMG$; 
ITS structure; 
B bitfield mask; /* Bold rendition 
REVERSE bitfield mask; /* Reverse video rendition 
BLINK bitfield mask; /* Blink rendition 
ott F BITS: ttield mask; /* Underline rendition 


end SMGDE 

constant 'NORMAL"’ equals 0 prefix SMG$ tag M; /* no bits set 
/ 
/* DEFINE BITS, MASKS, AND FIELDS FOR THE CONTROL MODES. 


SMGMODF BITS structu 
414 “ENABLED d mask; /* Enable buffering 

Enable minimal update (default) 

Clear screen on exit 

Don't use physical tabs 


MINUPD 
CLEAR SCREEN 
end SMGMODE BITS; 


CONSTANT ( BUF ENABLED i Enable Buffering bitvector index 
-MINOPD * Enable minimal update bitvector index 


a 
2 
a 
“" 
x 
Sete te 
~ 
sss 
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hee g SCREEN /* Clear screen on exit 
morass * Don't use physical tabs 
) EQUALS 0 INCREMENT 1; 


{It would be nice if the above two items could be combined. - stan - 
Master color wheel for screen background colors. 


ermmtesondes  e, ® Baan? BLACK) EQUALS 0 INCREMENT 1 


¢_CoLo 


/* The sot losing ¢ constants er Hy ~~ ren types defined 

in SMGT These names used te ye? or public use - the SMGTERM names 
/* used to be needed for compatibil ty 3 th SCRS and SMG$ code. 
. Use of these names is now very hight y discouraged. 


CONSTANT ¢ UNKNOWN /* non-graphics or unknown type 
-VT05 /* yt05 series terminal 
»VT /* yt52 series toratect 
-V /* yt100 series terminal 
»VTFOREIGN /* foreign terminal (ft1-8) 


»HARDCOPY /* hardcopy device 
) EQUALS 0 INCREMENT 1; 


/* The 09 | ey pours define values to be used 
/* to specif y a display attribute. These may be added 
/* together to specify multiple attributes. 


These must correspond to the DCB_V_xxx attribute bits 
in the DCB_B_DEF _DISPLAY_ATTR flag byte. 


DISPLAY_ATTRIBUTES structure; 
BOR RBER bitfield mask; /* Display is bordered 
UNC_ICON bit field a /* Truncation icon enabled if set 
DISPLAY Y- CONTROLS bittietd mask; /* Display carriage controls if set 
end DISPLAY_ATTRIBUTES; 


/* When an out-of-band AST triggers, the user's AST routine 
/* will get called. The first argument passed to his 

/* routine is the address of a Band Information Table. 

/* The offsets into this table are described below. 

/t To make it easy to access prem coctain canqueges of 

/* the table is arranged so that it is convenie 

/* reference it as a longword vector as well as a ion block. 


BAND_INFORMATION TABLE structure; 
PASTEBO OARD_IB Longword unsigned; /* Pasteboard ID 
longword unsigned; /* User's AST argument 


Fi 
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CHARACTER = byte unsigned; /* The character typed 
“CHARACTER longword unsigned; /* The character and 5 spaces 
end CHARACTER OVERLAY; 
BAND_INFORMATION_ TABLE; 


When SMGSGET_PASTEBOARD_ATTRIBUTES is called 

it returns data in a pasteboard information block. 
The following structure is used to reference fields 
in this block. 

Items marked with a plus (+) will be 0 unless the 
device is a terminal (DEVCLASS=DC$_TERM). 


PASTEBOARD_INFO_BLOCK structure; 
DEVCHAR lLongword unsigned; /* Device characteristics 


CHARACTER crERS union; 


/* Stag lay that cursor is in. 
if cursor is not in a 

* virtual display 

end PASTEBOARD_INFO_BLOCK; 


Directions are set up as a structure, assuming that directions 
may be combined in the future (ie. diagonal movement). 


SCROLL_DIRS structure; 
UP b ; 


itfield mask; /* Scroll up 
DOWN bitfield mask; /* Scroll down 
RIGHT bittield mask; /* Scroll r ght 
EFT bitfield mask; /* Scroll left 
end SCROLL_DIRS; 


Foreign types are in the range 128 - 255 (or negative numbers -1 to -127, 
since type is gteree 35 a byte). Half of the types are reserved for private 
termtables (-65 to -127), and half are reserved for the system termtable 

(-1 to -64). Provide a constant for use by SHOW TERM so that it doesn't 
need to know the distinction. 


CONSTANT FIRST_PRIV_TYPE EQUALS 191 PREFIX SMGS$; 


DEVDEPEND Longword unsigned; /* Specific characteristics (1) 

DEVDEPEND2 lLongword unsigned; /* Specific characteristics (2) 

DEVCLASS byte unsigned; /* Device class sof DCS$_TERM) 

SMG_DEVTYPE byte unsigned; /* Internal SMG device type 

PHY DEVTYPE byte unsigned; /* Physical device type (e.g. DT$_VT100) 

rows byte unsigned; /* Number of rows on device 

WIDTH word unsigned; /* Terminal width 

COLOR byte unsigned; /* Reserved for future use 

PARITY byte unsigned; /* Parity attributes (+) 

SPEED word unsigned; /* Terminal Speed (+) 

FILL word unsigned; /* Fill characteristics (+) 

CURSOR_ROW word unsigned; i one wpece phystees cursor is 
* (l-origin 

CURSOR_COL word unsigned; - bot where physical cursor is 
* (l-origin 

CURSOR_DID Longword unsigned; /* Display id of topmost 
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end SMGDEF ; 
end_module SSMGDEF ; 
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